home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / DOCK.ASC < prev    next >
Text File  |  1982-07-03  |  384b  |  13 lines
  1. 50000 IF C5$="DOCKED"THEN 50090
  2. 50010 IF B6=0 THEN 50030
  3. 50020 IF(ABS(S6-B6)<=1) AND (ABS(S7-B7)<=1) THEN 50050
  4. 50030 PRINT S5$;" NOT ADJACENT TO A BASE."
  5. 50040 GOTO 70
  6. 50050 C5$="DOCKED"
  7. 50060 PRINT"---> DOCKING COMPLETED"
  8. 50070 E1=I7:S3=I8:T4=I9:L1=J1
  9. 50080 GOTO 70
  10. 50090 PRINT"CAPTAIN, WE'RE ALREADY DOCKED!"
  11. 50100 GOTO 70
  12. 60000 REM END OVERLAY
  13. 070 E1=I7:S3=I8:T4=I9:L